home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PREVIEW.DIR / 00105_Script_cursor stack < prev    next >
Text File  |  1997-07-22  |  612b  |  33 lines
  1. property cursorList
  2.  
  3. on new me
  4.   push me, 1, 48
  5.   return me  
  6. end
  7.  
  8. on push me, start, end
  9.   set cursorList = []
  10.   repeat with i = start to end
  11.     add cursorList, the cursor of sprite i
  12.   end repeat
  13.   return me
  14. end
  15.  
  16. on pop me, start, end
  17.   repeat with i = start to end
  18.     set the cursor of sprite i = getat(cursorList, i)
  19.   end repeat
  20.   return me
  21. end
  22.  
  23. on setCursor me, cursorVar, start, end
  24.   set cursorList = []
  25.   repeat with i = start to end
  26.     set the cursor of sprite i = cursorVar
  27.     add cursorList, the cursor of sprite i
  28.   end repeat
  29.   cursor cursorVar
  30.   return me
  31. end
  32.  
  33.